program zadacha_3_3;
{Описание переменных.}
var a,b,c,d,x1,x2:real;
begin
{Ввод значения коэффициентов квадратного уравнения.}
writeln('Введите коэффициенты квадратного уравнения a b c');
readln(a,b,c);
{Вычисление дискриминанта.}
d:=b*b-4*a*c;
{Если дискриминант отрицателен,}
if d<0 then
{то вывод сообщения, что корней нет,}
writeln('Действительных корней нет ')
else
begin
{иначе вычисление корней x1, x2}
x1:=(-b+sqrt(d))/2/a;
x2:=(-b-sqrt(d))/(2*a);
{и вывод их на экран.}
writeln('X1 = ',x1:6:3,' X2= ',x2:6:3);
end
end.
